;RECEPCION PIBE80
;Programa de recepcion por RS232
;para PIBE80 de codigo objeto.
;1 STOP BIT,8 BITS por caracter,
;sin paridad.


		.EQU	SERIAL	07b0H
		.EQU	PRGSIO	6877H
		.EQU	DSPHL	6668H

		.ORG     0700H
		LD	A,01001100B
		LD	(SERIAL),A
		CALL	PRGSIO
		LD	HL,0000H
ESPERA:	IN	A,(09H)
		AND	02H
		JR	Z,ESPERA
		IN 	A,(08H)
		LD	(HL),A
		CALL	DSPHL
		INC	HL
		JR 	ESPERA

